2 PRINTCHR$(147) 3 POKE53281,1:POKE53280,12 4 PRINTTAB(5)"EVENT[146] SEQUENCES":PRINT 5 PRINTTAB(10)"IN[146] AN":PRINT 6 PRINTTAB(13)"LPG[146] RELEASE":GOTO3000 7 FOR T=1 TO2500 STEP1 :NEXTT:PRINTCHR$(147):PRINT"" 10 PRINT" PROGRAM WRITTEN BY":PRINT 11 PRINT"[129] ROBERT J. SMITH 12 [153]"OPEN SERGEANT":[153] 13 [153]" BEAUMONT POLICE 14 PRINT"[158] BEAUMONT,TEXAS 15 [143] (409) 838-0801 16 [143] DATE COMPLETED 11-23-86LIST 20 [129] T[178]1 [164]1000 [169]1 :[130]T:[153][199](147):[153]" " 21 [153]"OPEN ACTUAL MATERIAL FOR BLOCKS":[153] 22 [153]" WAS OBTAINED FROM THE LPG REPORT":[153] 23 [153]" R & D RISK-BENEFIT ANALYSIS":[153] 24 [153]" LPG TRANSPORT SUMMARY REPORT 26 FOR T=1 TO2000 STEP1 :NEXTT:PRINTCHR$(147):PRINT"" 27 PRINT"[156] TRANSPORT CANADA 28 [153]"OPEN ENERGY R&D PROGRAM":[153] 31 [153]" PREPARED BY:":[153] 32 [153]"CONT CARY SWOVELAND 33 PRINT"[154] JACK CAWDERY 34 [153]" QUANTALYTICS INC. 35 PRINT 38 FOR T=1 TO2000 STEP1 :NEXTT:PRINTCHR$(147):PRINT"" 41 REM THIS PROGRAM IS INTENDED FOR PUBLIC DOMAIN USE ONLY. 45 REM********************************************* 70 PRINTCHR$(147) 75 POKE53281,7:POKE53280,14 100 PRINTTAB(5)"EVENT[146] SEQUENCES":PRINT 101 PRINTTAB(10)"IN[146][157]N":PRINT 102 PRINTTAB(13)"LPG[146] RELEASE":GOTO2000 110 FOR M=1 TO 2500 STEP1 111 NEXT M 112 PRINTCHR$(147):PRINT:PRINT:PRINT:PRINT:POKE53281,3 120 PRINTTAB(5)"INSTANTANEOUS SPILL OR STEADY LEAK":PRINT 130 PRINTTAB(10)"(1) NO IGNITION":PRINT 140 PRINTTAB(10)"(2) DELAYED IGNITION":PRINT 150 PRINTTAB(10)"(3) IMMEDIATE IGNITION FIRE":PRINT 151 PRINTTAB(10)"(4) IMMEDIATE IGNITION B.E.L.V.E":PRINT 165 PRINTTAB(10)"[144](5) E N D " 166 PRINT:PRINTTAB(10)"[158]PLEASE SELECT OCCURANCE[144]" 170 INPUTA$ 180 IF A$="1" GOTO 500 190 IF A$="2" GOTO 600 200 IF A$="3" GOTO 700 201 IF A$="4" GOTO800 220 IF A$="5"THEN END 500 PRINTCHR$(147):PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:POKE53281,13 501 PRINTTAB(5)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]" 502 PRINTTAB(5)"[180] [170]" 504 PRINTTAB(5)"[180] [170]" 505 PRINTTAB(5)"[180]FROST BURNS AND [170]" 506 PRINTTAB(5)"[180]POSSIBLE DEATH FROM [170]" 507 PRINTTAB(5)"[180]CONTACT WITH CHILLED [170]" 508 PRINTTAB(5)"[180]LIQUID. [170]" 510 PRINTTAB(5)"[180] [170]": 514 PRINTTAB(5)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]" 550 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 560 PRINT"[129] PRESS RETURN[146] TO GO TO MENU[144]":GOSUB1000 600 PRINTCHR$(147):POKE53281,3 601 PRINTTAB(5)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]" 602 PRINTTAB(5)"[180] (1) PLUME CONFINED [170]" 604 PRINTTAB(5)"[180] AT IGNITION [170]" 605 PRINTTAB(5)"[180] [170]" 606 PRINTTAB(5)"[180] [170]" 607 PRINTTAB(5)"[180] (2) PLUME UNCONFINED [170]" 608 PRINTTAB(5)"[180] AT IGNITION [170]" 610 PRINTTAB(5)"[180] [170]" 611 PRINTTAB(5)"[180] PRESS (1) OR (2) [170]" 614 PRINTTAB(5)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]" 620 INPUTX$ 621 IFX$="1"THEN GOSUB 630 627 IFX$="2"THENGOSUB 674 630 PRINTCHR$(147) 631 PRINTTAB(5)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]" 632 PRINTTAB(5)"[180] POSSIBLE DETONATION [170]" 634 PRINTTAB(5)"[180] OF PLUME,REAMING [170]" 635 PRINTTAB(5)"[180] LIQUID BURNS [170]" 636 PRINTTAB(5)"[180] ------------------- [170]" 637 PRINTTAB(5)"[180] DEATHS OF PERSONS [170]" 638 PRINTTAB(5)"[180] AND DESTRUCTION OF [170]" 640 PRINTTAB(5)"[180] PROPERTY IN AND NEAR [170]" 641 PRINTTAB(5)"[180] PLUME [170]" 642 PRINTTAB(5)"[180] [170]" 644 PRINTTAB(5)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]" 645 PRINTTAB(5)" PRESS RETURN FOR MENU " 650 GOSUB1000 674 PRINTCHR$(147) 675 PRINTTAB(5)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]" 676 PRINTTAB(5)"[180] EXPLOSION AND / OR [170]" 677 PRINTTAB(5)"[180] FLASH PLUME FIRE, [170]" 678 PRINTTAB(5)"[180] FIRE AT REMAINING [170]" 679 PRINTTAB(5)"[180] POOL OF LIQUID [170]" 680 PRINTTAB(5)"[180] ------------------- [170]" 681 PRINTTAB(5)"[180] DEATHS OF PERSONS [170]" 682 PRINTTAB(5)"[180] AND DESTRUCTION OF [170]" 683 PRINTTAB(5)"[180] PROPERTY IN PLUM AND [170]" 684 PRINTTAB(5)"[180] NEAR POOL [170]" 685 PRINTTAB(5)"[180] [170]" 686 PRINTTAB(5)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]" 687 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 690 PRINTTAB(5)"PRESS RETURN TO CONTINUE[146]":GOSUB 1000 700 PRINTCHR$(147):PRINT:PRINT:PRINT:POKE53281,4 701 PRINTTAB(6)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]" 702 PRINTTAB(6)"[180] [170]" 705 PRINTTAB(6)"[180] FIRE SET BY BURNING [170]" 706 PRINTTAB(6)"[180] LIQUID [170]" 710 PRINTTAB(6)"[180] [170]" 714 PRINTTAB(6)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]" 715 PRINTTAB(6)" [180] 716 [153][163]6)" SGN 717 PRINTTAB(6)" [180] 718 [153][163]6)" (null)(null) 719 PRINTTAB(6)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]" 720 PRINTTAB(6)"[180] [170]" 721 PRINTTAB(6)"[180] POSSIBLE DEATHS OR [170]" 722 PRINTTAB(6)"[180] INJURIES NEAR BURNING [170]" 723 PRINTTAB(6)"[180] LIQUID, DAMAGE FROM [170]" 724 PRINTTAB(6)"[180] FIRE [170]" 725 PRINTTAB(6)"[180] [170]" 726 PRINTTAB(6)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]" 730 PRINT:PRINT:PRINTTAB(6)"PRESS RETURN TO GO TO MENU[144]" 735 GOSUB 1000 800 PRINTCHR$(147):PRINT:PRINT:PRINT:POKE53281,7 801 PRINTTAB(6)"[213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201]" 802 PRINTTAB(6)"[199] [200]" 803 PRINTTAB(6)"[199] FIRE HEATS TANK [200]" 804 PRINTTAB(6)"[199] [200]" 805 PRINTTAB(6)"[202][198][198][198][198][198][198][198][198][198][166][166][166][144][198][198][198][198][198][198][198][198][198][198][198][203]" 806 PRINTTAB(6)" [166][166][166][166][166][166][166][166][166][166] " 807 PRINTTAB(6)" [166][166][166][166][166][166][166][166][166][166][166][166][166][144]" 808 PRINTTAB(9)"[213][196][196][196][166][166][166][166][166][166][166][166][166][166][166][166][166][144][196][196][196][196][196][196][196][201]" 809 PRINTTAB(9)"[199] [200]" 810 PRINTTAB(9)"[199] [200]" 811 PRINTTAB(9)"[199] [200]" 812 PRINTTAB(9)"[202][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][203]" 815 FOR M=1 TO 2000 STEP 1 816 NEXT M 817 PRINTCHR$(147):PRINT:PRINT:PRINT:POKE53281,13:GOSUB5000:PRINT:PRINT:PRINT 818 PRINTTAB(6)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]" 819 PRINTTAB(6)"[180] PRESSURE RELEASE [170]" 820 PRINTTAB(6)"[180] VALVE FAILS TO [170]" 821 PRINTTAB(6)"[180] OPERATE PROPERLY [170]" 822 PRINTTAB(6)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]" 825 FOR M=1 TO 2000 STEP 1 826 NEXT M 827 PRINTCHR$(147):PRINT:PRINT:PRINT:POKE53281,4 828 PRINTTAB(6)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]" 829 PRINTTAB(6)"[180] TANK WELL WEAKENS [170]" 830 PRINTTAB(6)"[180] DUE TO EXPOSURE [170]" 831 PRINTTAB(6)"[180] TO FIRE [170]" 832 PRINTTAB(6)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]" 833 FOR M=1 TO 2000 STEP 1 834 NEXT M 835 PRINTCHR$(147):PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:POKE53281,1 836 PRINTTAB(3)" [207][183][208] " 837 PRINTTAB(3)" [213][196][196][196][196][196][196][196][196][196][196][196][196][205] [196][196][196][196][196][196][196][196][196][201]" 838 PRINTTAB(3)" [221] [206] [221]" 839 PRINTTAB(3)" [221] TANK [205] [200]" 840 PRINTTAB(3)" [221] EXP[205]LODES [221]" 850 PRINTTAB(3)" [221] [218] [206] [221]" 851 PRINTTAB(3)" [202][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198] [205][198][198][198][198][198][198][198][198][203]" 852 PRINTTAB(3)"[144] [164][164][164]O[192]O[164][164][164][164][164][164][164][164][164][164][164][164][164][164]O-O[164][164] " 853 PRINTTAB(3)"[144] [177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177] 855 [129] M[178]1 [164] 2000 [169] 1 856 [130] M 860 [153][199](147):[153]:[153]:[153]:[151]53280,14 861 [153][163]1)" O (null)USR(null) " 863 [153][163]1)" (null) (null) (null)" 864 [153][163]1)" (null)STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$(null) STR$STR$STR$STR$STR$STR$STR$STR$STR$RIGHT$" 865 [153]:[153]" " 866 [153][163]1)" (null)ROCKETING OF (null) TANK (null)" 869 [153][163]1)" (null) (null)FRA(null) GMENTS (null)" 870 [153]:[153]" " 872 [153][163]1)" MID$ASCASCASCASCASCASCASCASCASCASCASCASCASCASCASC (null) ASCASCASCASCASCASCASCASC(null)" 873 [153][163]3)"STOP TOTOTO TANOTOTOTOTOTOTOTOTOTOTOTOTOTOTOO-OTOTO " 874 [153][163]3)"STOP >>>>>>>>>>>>>>>>>>>>>>>>>":[153]:[153] 875 [153][163]6)"SYS(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)" 876 [153][163]6)"SGN +" 877 [153][163]6)"SGN POSSIBLE DEATHS, +" 878 [153][163]6)"SGN INJURIES AND PROPERTY +" 879 [153][163]6)"SGN DAMAGE FROM FLYING +" 880 [153][163]6)"SGN FRAGMENTS +" 881 [153][163]6)"SGN +" 882 [153][163]6)"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQRSTOP" 884 [129] M[178]1 [164] 3000 [169] 1 885 [130] M 900 [153]"FLASHING VAPOR CREATES LARGE FIREBALL" 911 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( " 912 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( " 920 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( " 921 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( " 922 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( " 930 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( " 931 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( " 932 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( " 940 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( " 941 [153]" SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( " 942 [153]" (null)TANTANTANSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(TANTANTANRIGHT$ " 950 [153]" (null) SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( (null) 951 PRINT" [221][166][166][166][166][166][166][166][166][166][166][166][166][166][166][221] 952 [153]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null) 955 PRINT:PRINT:PRINT 960 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]" 961 PRINT"[221] DEATH OF PERSONS AND [221]" 962 PRINT"[221] DESTRUCTION OF PROPERTY [221]" 963 PRINT"[221] UNDER AND NEAR FIREBALL [221]" 964 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203] 965 [153]"PRESS RETURN TO GO TO MENU" 970 [141]1000 1000 [133] R$ 1001 [139] R$[178]""[167] 112 2000 [153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]:[153] 2001 [153][163]3)"STOP (null)USR(null) SPC(SPC(" 2002 [153][163]3)"STOP (null)STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$RIGHT$ SPC(SPC(" 2003 [153][163]3)"STOP (null) (null)SPC(SPC(SPC(" 2004 [153][163]3)"STOP (null) (null)NOTSPC(SPC(SPC(SPC(SPC(" 2005 [153][163]3)"STOP (null) MID$SPC(STOP (null)" 2006 [153][163]3)"STOP (null) (null) (null)" 2007 [153][163]3)"STOP MID$ASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASCASC(null)" 2008 [153][163]3)"STOP TOTOTOO>OTOTOTOTOTOTOTOTOTOTOTOTOTOTOO>OTOTO " 2009 [153][163]3)"STOP >>>>>>>>>>>>>>>>>>>>>>>>> 2020 GOSUB110 3000 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 3001 PRINTTAB(3)"[144] [207][183][208] [166][166]" 3002 PRINTTAB(3)"[144] [213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201] [166][166]" 3003 PRINTTAB(3)"[144] [221] [221][166][166][166]" 3004 PRINTTAB(3)"[144] [221] [213][168][166][166][166][166][166]" 3005 PRINTTAB(3)"[144] [221] [202][166][144] [221]" 3006 PRINTTAB(3)"[144] [221] [218] [221]" 3007 PRINTTAB(3)"[144] [202][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][203]" 3008 PRINTTAB(3)"[144] [164][164][164]O[177]O[164][164][164][164][164][164][164][164][164][164][164][164][164][164]O[177]O[164][164] " 3009 PRINTTAB(3)"[144] [177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177] 3020 [141] 7 5000 [153]:[153]:[153] 5001 [153][163]10)" (null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)" 5002 [153][163]10)" SGN (null)STR$STR$STR$STR$STR$RIGHT$ ABS" 5003 [153][163]10)" SGN (null) (null) (null) ABS" 5004 [153][163]10)" SGN (null)(null) O (null)(null) ABS" 5005 [153][163]10)" SGN (null) (null) (null) ABS" 5006 [153][163]10)" SGN MID$TANTANTANTANTAN(null) ABS" 5007 [153][163]10)" (null)ANDANDANDANDSQR (null)ANDANDANDANDANDSQR" 5008 [142]